home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00128.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  490 b   |  19 lines
  1. on mouseUp
  2.   global stamp, mucus, candidateStamp
  3.   if (candidateStamp = 4) or (candidateStamp = 5) then
  4.     cursor(0)
  5.     alert("Even though mucus may change or diminish, if there is a wet or lubricated sensation, choose the White Baby stamp and the Sensation stamp.")
  6.     append(relations, 0)
  7.     append(stamp, 3)
  8.     append(mucus, 2)
  9.     showDays()
  10.     setupDayBook()
  11.   else
  12.     if candidateStamp = 3 then
  13.       resetpeak()
  14.       go("chart mucus")
  15.       cursor(0)
  16.     end if
  17.   end if
  18. end
  19.